home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 41 / Amiga Format CD41 (1999-06)(Future Publishing)(GB)[!][issue 1999-07].iso / -screenplay- / -commercial- / evilsdoom_demo / install_evilsdoom_demo < prev    next >
Text File  |  1999-04-19  |  3KB  |  118 lines
  1.  
  2. ;$VER: Evil's Doom installer script V1.0
  3.  
  4.     (set programname "Evil's Doom")
  5.     (set drawername "Evil's Doom Demo")
  6.     (set assignname "EVIL")
  7.     (set savegameassignname "SAGA")
  8.  
  9.     (set bytesreq "1.8MB")
  10.  
  11.     (set initialdir "work:")
  12.     (run "GCD")
  13.  
  14.  
  15.     (welcome
  16.     (message
  17.     "\nWelcome to...\n\nEVIL'S DOOM\nA Fantasy Role Playing Saga\n\n"
  18.     "About " bytesreq " of free space is required for some necessary files and future saved games. This will take only a second so be patient "
  19.     "and follow the instructions carefuly...")
  20.     )
  21.     ;-------------------
  22.     ; Ask where to install it...
  23.     (set wheredir
  24.         (askdir
  25.         (prompt    "Please select a path for the Evil's Doom drawer:")
  26.         (help    "This path MUST be selected! Suggest to select a "
  27.             "path like 'work:games/', or 'dh1:games/', or 'dh0:games'"
  28.             ", or, dh1:, dh0:, or whatever.\n\nA new drawer called Evil's Doom will be created where some necessary files and future saved games will be placed!")
  29.         (default "work:")
  30.         )
  31.     )
  32.  
  33.     (set maintargetdir wheredir)
  34.     (set wheredir (tackon wheredir drawername))
  35.     (set @default-dest wheredir)
  36.     (message "\n\n" programname " will be installed in a new drawer called `" wheredir "'.  If this is correct, click `Proceed'.")
  37.     (makedir wheredir)
  38.     (set savedir (tackon wheredir "Save"))
  39.     (makedir savedir)
  40.     (makedir (tackon savedir "A"))
  41.     (makedir (tackon savedir "B"))
  42.     (makedir (tackon savedir "C"))
  43.     (makedir (tackon savedir "D"))
  44.     (makedir (tackon savedir "E"))
  45.     (makedir (tackon savedir "F"))
  46.     (makedir (tackon savedir "G"))
  47.     (makedir (tackon savedir "H"))
  48.     (makedir (tackon savedir "I"))
  49.     (makedir (tackon savedir "J"))
  50.     (makedir (tackon savedir "K"))
  51.     (makedir (tackon savedir "L"))
  52.     (makedir (tackon savedir "M"))
  53.     (makedir (tackon savedir "N"))
  54.     (makedir (tackon savedir "O"))
  55.     (makedir (tackon savedir "P"))
  56.     (makedir (tackon savedir "X"))
  57.     (makedir (tackon savedir "Y"))
  58.  
  59.  
  60.     (textfile
  61.         (dest (tackon wheredir ("Start saga!")))
  62.         (prompt "")
  63.         (help "")
  64.         (append "Assign >nil: " assignname ": \"")
  65.         (append (include "T:DirName"))
  66.         (append    "\"\n"
  67.             "Assign >nil: " savegameassignname ": \"" wheredir "\"\n"
  68.             "CPU >nil: cache burst datacache databurst\n"
  69.             "EVIL:prg/int.dat"
  70.         
  71.         )
  72.     )
  73.  
  74.     (copyfiles
  75.         (prompt "")
  76.         (help "")
  77.         (source "save/Y")
  78.         (dest (tackon savedir "Y"))
  79.         (all)
  80.     )
  81.  
  82.     (copyfiles
  83.         (prompt "")
  84.         (help "")
  85.         (source "save")
  86.         (dest savedir)
  87.         (choices "Dir")
  88.     )
  89.  
  90.     (copyfiles
  91.         (prompt "")
  92.         (help "")
  93.         (source "X")
  94.         (dest maintargetdir)
  95.         (choices "Evil's Doom Demo.info")
  96.     )
  97.  
  98.     (copyfiles
  99.         (prompt "")
  100.         (help "")
  101.         (source "X")
  102.         (dest wheredir)
  103.         (choices "Start saga!.info")
  104.     )
  105.  
  106.  
  107.  
  108.     (run 'assign >nil: EVIL: ""')
  109.  
  110.     (
  111.         if ( exists ("EVIL:PIC/ARNOYTAVERN.fig"))
  112.         (
  113.         (run "DPK >con:0/0/640/64/EvilOutput")
  114.         (run "delete >nil: EVIL:pic/#?.fig")
  115.         (run "delete >nil: EVIL:int/#?.fig")
  116.         )
  117.     )
  118.